CLOSE#4
OPEN "R",#4,"df1:USER",117
FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS CO$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FOR j=700 TO 1000
GET#4,j
LSET check$="b"
LSET Valu$="000"
PUT#4,j
NEXT j
CLOSE#4
END